home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The 640 MEG Shareware Studio 2
/
The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO
/
utility
/
blrmu13.zip
/
NEWBLUZ.ASM
< prev
next >
Wrap
Assembly Source File
|
1990-09-21
|
10KB
|
378 lines
page ,132
title newbluz ( blues # 2 ) as of 09-21-90 02:45 am
;
; read through arrays of tones and times using timer channel 2
;
; Program originally
; from p. 109 - PC Resource May 1987 ( hardin brothers )
;
;*-------------------------------------------------
;* ( minor modifications by bud rasmussen )
;* ( tune by bud rasmussen )
;*-------------------------------------------------
;
code segment
;
assume cs:code,ds:code
;
org 256
;
newbluz:
;
jmp play
;
ppipb equ 61h ; PPI port b
tccr equ 43h ; timer chip cmd reg
tc2 equ 42h ; timer channel 2
;
; This is the tone table -- the calculation formula is:
; tone value = int ((1193180 / frequency) +.5)
;
tones:
;
dw 9122 ; c 1 ( c below middle c )
dw 8609 ; c# 2
dw 8128 ; d 3
dw 7668 ; d# 4
dw 7240 ; e 5
dw 6834 ; f 6
dw 6450 ; f# 7
dw 6088 ; g 8
dw 5745 ; g# 9
dw 5424 ; a 10
dw 5119 ; a# 11
dw 4833 ; b 12
;
dw 4559 ; c 13 ( middle c )
dw 4304 ; c# 14
dw 4063 ; d 15
dw 3835 ; d# 16
dw 3620 ; e 17
dw 3417 ; f 18
dw 3225 ; f# 19
dw 3044 ; g 20
dw 2873 ; g# 21
dw 2712 ; a 22
dw 2559 ; a# 23
dw 2416 ; b 24
;
dw 2280 ; c 25 ( c above middle c )
dw 2152 ; c# 26
dw 2031 ; d 27
dw 1917 ; d# 28
dw 1810 ; e 29
dw 1708 ; f 30
dw 1612 ; f# 31
dw 1522 ; g 32
dw 1436 ; g# 33
dw 1356 ; a 34
dw 1279 ; a# 35
dw 1208 ; b 36
;
;
;*----------------
;* tune table
;*----------------
;
; This is the tune to be played. The numbers are
; indexes into the tone table above.
;
; The list is terminated with a -1.
;
; to make a rest:
; use tone of 0 in tune table and length in time table
;
;
tune:
; bar 1
db 26
db 0
db 18
db 21
db 23
db 18
db 21
db 23
; bar 2
db 26
db 18
db 21
db 23
; bar 3
db 26
db 0
db 18
db 21
db 23
db 18
db 21
db 23
; bar 4
db 26
db 18
db 24
db 0
; bar 5
db 26
db 0
db 26
db 29
db 31
db 26
db 29
db 31
; bar 6
db 33
db 33
db 31
db 31
db 29
; bar 7
db 26
db 0
db 18
db 21
db 23
db 18
db 21
db 23
; bar 8
db 24
db 0
db 26
db 26
db 26
; bar 9
db 31
db 29
db 26
db 26
db 25
db 26
db 29
db 31
; bar 10
db 32
db 31
db 29
db 26
db 26
; bar 11
db 26
db 0
db 18
db 21
db 23
db 18
db 21
db 23
; bar 12
db 24
db 0
;
db -1 ; end of tune table
;
;*----------------
;* time table
;*----------------
;
; Each entry in the time table corresponds to one of the
; tones above. Times are multiples of
; the 18.2159 Hz heartbeat.
;
; 2 = eighth triplet
; 3 = eighth
; 4 = quarter triplet
; 6 = quarter
; 12 = half
; 24 = whole
;
time:
; bar 1
db 6
db 3
db 3
db 2
db 2
db 2
db 3
db 3
; bar 2
db 3
db 6
db 6
db 9
; bar 3
db 6
db 3
db 3
db 2
db 2
db 2
db 3
db 3
; bar 4
db 3
db 6
db 6
db 9
; bar 5
db 6
db 3
db 3
db 2
db 2
db 2
db 3
db 3
; bar 6
db 3
db 6
db 6
db 3
db 6
; bar 7
db 6
db 3
db 3
db 2
db 2
db 2
db 3
db 3
; bar 8
db 12
db 3
db 3
db 3
db 3
; bar 9
db 3
db 3
db 3
db 6
db 3
db 2
db 2
db 2
; bar 10
db 3
db 3
db 3
db 12
db 3
; bar 11
db 6
db 3
db 3
db 2
db 2
db 2
db 3
db 3
; bar 12
db 12
db 12
;
db -1 ; end of time table
;
;*------------------------------
;* start of program
;*------------------------------
;
play:
mov bx,1 ; synchronize with the timer ticks
call delay ; by waiting for next one
in al,ppipb ; get current port status
or al,3 ; turn on lo 2 bits
out ppipb,al ; open gate to timer
mov bx,0 ; tone count
lea di,time ; point to time table
;
; music loop
;
ml:
lea si,tune ; point to tune table
mov al,[si][bx] ; get tone
mov dl,[di][bx] ; get duration
mov dh,0 ; clear duration word
cmp al,-1 ; end ?
je done ; if so, get out
push bx ; save count
test al,al ; rest ?
jne norest ; if not, carry on
mov bx,dx ; move duration
call rest ; turn speaker off
jmp repeat ; goto repeat
;
norest:
cbw ; make tone a word
dec ax ; offset ftom 0
shl ax,1 ; * 2 to index word table
mov bx,ax ; move to bx
lea si,tones ; point to tone table
mov cx,[si][bx] ; get the tone
call maketone ; turn speaker on
mov bx,dx ; move duration
call delay ; wait while it plays
;
repeat:
mov bx,0 ; break between tones
call rest ; turn spekaer off
pop bx ; retrieve count
inc bx ; + 1
jmp ml ; loop
;
;*-------------------------
;* sub routines
;*-------------------------
;
; Enter maketone with frequency in cx
; This routine starts the speaker going
; Uses: AX
;
maketone:
mov al,10110110b ; set up timer for ch 2
out tccr,al ; timer chip ready for count
mov al,cl ; get lsb of tone
out tc2,al ; send to timer
mov al,ch ; get msb of tone
out tc2,al ; now tone has started
ret
;
; Enter delay with delay count in bx
; This routine will pause for bx / 18.2 seconds
; Uses: AX, CX, DX
;
delay:
mov ah,0 ; timer function - get time count
int 26 ; timer count in cx:dx
add bx,dx ; add to delay count
delayl:
int 26 ; get new timer count
cmp bx,dx ; thru ?
jne delayl ; if not, carry on
ret
;
; Enter rest routine with count in BX
;
rest:
in al,ppipb ; get current port status
push ax ; save status
and al,11111100b ; turn off 2 lo bits
out ppipb,al ; send out
call delay ; now wait
pop ax ; get back value
out ppipb,al ; turn speaker on
ret
;
done:
in al,ppipb ; get port status
and al,11111100b ; turn off 2 lo bits
out ppipb,al ; send it out
int 32 ; get out
;
code ends
;
end newbluz
